home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / ruth.arc / RUTHEXPT.BAS (.txt) next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.1 KB  |  45 lines
  1. 1  CLEAR:REM Rutherford scattering experiment, macro
  2. 2  CLS:SCREEN 1:KEY OFF
  3. 3  P=3.14159 :PM=P-0.05:PP=P+0.05:P2=2*P
  4. 5  WIDTH 40:A%=VAL(MID$(TIME$,7,2)):RANDOMIZE A%
  5. 6  LOCATE 7,4
  6. 7  PRINT"RUTHERFORD SCATTERING EXPERIMENT":PRINT:PRINT
  7. 8  PRINT"          David J Wilson":PRINT"          Department of Chemistry":PRINT"          Vanderbilt University"
  8. 9  FOR I=1 TO 4000:NEXT I:CLS
  9. 10  LINE (30,97)-(30,90):LINE-(0,90):LINE-(0,110):LINE-(30,110):LINE-(30,103)
  10. 11  LINE (30,97)-(20,97):LINE-(20,95):LINE-(10,95):LINE-(10,105):LINE-(20,105):LINE-(20,103):LINE-(30,103)
  11. 12  LINE (10,97)-(15,103),1,BF
  12. 13  CIRCLE (200,100),119,1,0,PM
  13. 14  CIRCLE (200,100),119,1,PP,P2
  14. 20  LOCATE 15,1
  15. 21  PRINT"Alpha"
  16. 22  LOCATE 16,1
  17. 23  PRINT"source"
  18. 25  LOCATE 18,19
  19. 26  PRINT"Au foil"
  20. 30  LOCATE 1,32
  21. 31  PRINT"Detector"
  22. 112  DIM S(8)
  23. 113  LOCATE 21,2
  24. 114  PRINT"0   1   2   3   4   5   6   7   8"
  25. 120  A=0.1
  26. 130  XO=15:YO=100:X1=200 :Y1=100:R=119:X2=199:X3=201:Y2=20:Y3=155
  27. 140  FOR JJ=1 TO 100
  28. 150  Y=RND(1)
  29. 155  X=A*SQR(1/Y-1)
  30. 160  IF X>P THEN GOTO 150
  31. 165  IF RND(1)<0.5 THEN X=-X
  32. 170  X4=X1+R*COS(X):Y4=Y1+R*SIN(X)
  33. 172  LINE (XO,YO)-(X1,Y1),1:LINE-(X4,Y4),1
  34. 190  LINE (XO,YO)-(X1,Y1),0:LINE-(X4,Y4),0
  35. 200  LINE (X2,Y2)-(X2,Y3),1:LINE (X3,Y2)-(X3,Y3),1
  36. 201  II=INT(ABS(X)*9/P)
  37. 202  S(II)=S(II)+1
  38. 203  IK=4*II+1
  39. 204  LOCATE 22,IK
  40. 225  PRINT S(II)
  41. 235  NEXT JJ
  42. 240  FOR I=1 TO 2000:NEXT I
  43. 245  RUN"ruthscat.bas"
  44. 250  END
  45.